0 POKE53265,PEEK(53265)AND239
1 DIMW$(300):POKE53281,0:POKE53280,0:POKE650,128:
2 FORI=1TO15:POKE211,0:POKE214,I:SYS58640
3 PRINT"[147][156][176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
4 POKE211,0:POKE214,16:SYS58640:PRINT"[173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189]"
5 GOTO10
7 POKE53265,PEEK(53265)OR16:RETURN
10 FORR=1TO15:READA$:W$(R)=A$:NEXT
11 POKE211,0:POKE214,17:SYS58640:
12 PRINT" [213][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][201] ";:U$="MAG"
13 PRINT"[213][203][151]  <[195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]>  [202][201]";
14 PRINT"[194][155]     [176][195][195][174] [176][174][176]   [178][195][195][174] [195][178][195] [176][195][174] [176][195][195][174]     [194]";
15 PRINT"[194]     [194]  [194] [194][194][194]   [194]  [194]  [194]  [173][195][174] [194]    [160]   [194]";
16 PRINT"[194][155]     [173][195][195][189] [189][173][189]   [177][195][195][189] [195][177][195] [173][195][189] [173][195][195][189]     [194]";
17 PRINT"[202][201][151]  <[195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]>  [213][203]";
18 PRINT" [202][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][203]";:GOSUB7
20 X=0:Y=-1
21 FORI=1TO15:POKE211,1:POKE214,I:SYS58640:PRINT"[154]"W$(X+I):NEXT:GOTO22
22 GETA$:
23 IFA$=CHR$(13)THEN50
24 IF A$="."ANDX<30THENX=X+15:GOTO21
25 IF A$=","ANDX>0THENX=X-15:GOTO21
26 GOTO22
50 POKE828,0:PRINTCHR$(147)CHR$(17):PRINT"[144]LOAD"CHR$(34)"M1*"CHR$(34)",8"
51 PRINTCHR$(17)CHR$(17)CHR$(17)CHR$(17)"RUN"
52 POKE631,13:POKE632,13:POKE198,2
53 PRINTCHR$(19);:END
100 DATA"--------------- INVASION -------------"
101 DATA"                                      "
102 DATA"EIN ETWAS AELTERES SPIEL AUS MEINER   "
103 DATA"FRUEHEREN ZEIT. ANSTELLE DIESES SPIE- "
104 DATA"LES SOLLTE IN DER NAECHSTEN AUSGABE   "
105 DATA"EIN SPIEL, EINE DEMO ODER EIN KLEINES "
106 DATA"PROGRAMM SEIEN. SCHICKT MIR EINFACH,  "
107 DATA"WAS IHR GEMACHT HABT !!               "
109 DATA"SPIELZIEL:                            "
110 DATA"DIE HERUNTERKOMMENDEN RAUMSCHIFFE AUF-"
111 DATA"FANGEN.                               "
112 DATA"STEUERUNG:                            "
113 DATA"JOYSTICK IN PORT 2 (LINKS/RECHTS)     "
114 DATA"                                      "
115 DATA"----------------- VIEL SPASS ---------"